home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / newchunky.s < prev    next >
Text File  |  1997-01-31  |  2KB  |  140 lines
  1. CHUNKYTOPLANAR
  2.  move.w d2,MODUL
  3.  move.w d0,WTC
  4.  
  5.  move.w d1,HTC
  6.  move.w d3,SCRMOD
  7.  
  8.  add.l #10240*7,a1
  9.  lea -10240(a1),a2
  10.  lea -10240(a2),a3
  11.  lea -10240(a3),a4
  12.  move.l a4,a5
  13.  sub.l #20480,a5
  14.  move.l a5,a6
  15.  sub.l #20480,a6
  16. outconv:
  17.  
  18. convlop:
  19.  swap d7
  20.  move.l (a0)+,d0
  21.  
  22.  add.w d0,d0
  23.  addx.w d0,d0
  24.  addx.w d1,d1
  25.  addx.w d0,d0
  26.  addx.w d2,d2
  27.  addx.w d0,d0
  28.  addx.w d3,d3
  29.  addx.w d0,d0
  30.  addx.w d4,d4
  31.  addx.w d0,d0
  32.  addx.w d5,d5
  33.  addx.w d0,d0
  34.  addx.w d6,d6
  35.  addx.w d0,d0
  36.  addx.w d7,d7
  37.  addx.w d0,d0
  38.  move.b d0,(a1)+
  39.  
  40.  move.b d1,d0
  41.  add.w d1,d1
  42.  move.b d0,d1
  43.  addx.w d1,d1
  44.  addx.w d2,d2
  45.  addx.w d1,d1
  46.  addx.w d3,d3
  47.  addx.w d1,d1
  48.  addx.w d4,d4
  49.  addx.w d1,d1
  50.  addx.w d5,d5
  51.  addx.w d1,d1
  52.  addx.w d6,d6
  53.  addx.w d1,d1
  54.  addx.w d7,d7
  55.  addx.w d1,d1
  56.  move.b d1,(a2)+
  57.  
  58.  move.w d2,d0
  59.  add.w d2,d2
  60.  move.b d0,d2
  61.  addx.w d2,d2
  62.  addx.w d3,d3
  63.  addx.w d2,d2
  64.  addx.w d4,d4
  65.  addx.w d2,d2
  66.  addx.w d5,d5
  67.  addx.w d2,d2
  68.  addx.w d6,d6
  69.  addx.w d2,d2
  70.  addx.w d7,d7
  71.  addx.w d2,d2
  72.  move.b d2,(a3)+
  73.  
  74.  move.w d3,d0
  75.  add.w d3,d3
  76.  move.b d0,d3
  77.  addx.w d3,d3
  78.  addx.w d4,d4
  79.  addx.w d3,d3
  80.  addx.w d5,d5
  81.  addx.w d3,d3
  82.  addx.w d6,d6
  83.  addx.w d3,d3
  84.  addx.w d7,d7
  85.  addx.w d3,d3
  86.  move.b d3,(a4)+
  87.  
  88.  move.b d4,d0
  89.  add.w d4,d4
  90.  move.b d0,d4
  91.  addx.w d4,d4
  92.  addx.w d5,d5
  93.  addx.w d4,d4
  94.  addx.w d6,d6
  95.  addx.w d4,d4
  96.  addx.w d7,d7
  97.  addx.w d4,d4
  98.  move.b d4,10240(a5)
  99.  
  100.  move.b d5,d0
  101.  add.w d5,d5
  102.  move.b d0,d5
  103.  addx.w d5,d5
  104.  addx.w d6,d6
  105.  addx.w d5,d5
  106.  addx.w d7,d7
  107.  addx.w d5,d5
  108.  move.b d5,(a5)+
  109.  
  110.  move.b d6,d0
  111.  add.w d6,d6
  112.  move.b d0,d6
  113.  addx.w d6,d6
  114.  addx.w d7,d7
  115.  addx.w d6,d6
  116.  move.b d6,10240(a6)
  117.  
  118.  rol.w #1,d7
  119.  move.b d7,(a6)+
  120.  subq #1,WTC
  121.  bgt.s convlop
  122.  
  123.  add.w MODUL,a0
  124.  move.w SCRMOD,d0
  125.  add.w d0,a1
  126.  add.w d0,a2
  127.  add.w d0,a3
  128.  add.w d0,a4
  129.  add.w d0,a5
  130.  add.w d0,a6
  131.  
  132.  subq #1,HTC
  133.  bgt outconv
  134.  
  135.  rts
  136.  
  137. MODUL: dc.w 0
  138. HTC: dc.w 0
  139. WTC: dc.w 0
  140. SCRMOD: dc.w 0